on *:TEXT:!truth:#:{
  msg $chan $nick Has Chosen Truth. Truth Q:are you gay $nick
  notice $nick When You Have Completed The Truth Question Type !turn <new victim>
}

on *:TEXT:!dare:#:{
  msg $chan $nick Has Chosen Dare. Dare: i dare you to fuck some one $nick
  notice $nick When You Have Completed The Dare, Type !turn <new victim>
}

on #:TEXT:!turn*:#:{
  msg $chan $2 Your Turn! Type !truth for truth or !dare for dare.
  set %turn $2
}

alias tad.on {
  set %tad on
  set %var.spin.num $rand(1,$nick($chan,0))
  set %var.spin.nick $nick($chan,$rand(1,$nick($chan,0))) 
  msg $chan Truth or Dare Has Begun. %var.spin.nick Can Start Us Off!
  notice %var.spin.nick Type !truth for truth or !Dare for a dare.
  set %turn %var.spin.nick
}
alias tad.off {
  set %tad off
  msg $chan Truth or Dare Has Been Disabled.
}
menu channel {
  TAD
  .on:/set %turn $$?="User To Start Off:" | /tad.on
  .off:/tad.off
}
